Konstruktionsschritte

p(g;A)

B = (12, 1.5)
C = (-3, 9)
g = Line(C, B)
A = (4, 9)
abstandAg = Distance(A, g)
k_1 = Circle(A, abstandAg + 2.0)
S_4, S_1 = Intersect(k_1, g)
k_2 = Circle(S_1, abstandAg + 2.0)
E, S_2 = Intersect(k_2, g)
Schritte = 0 (slider from 0 to 7, step 1)
TextAg: "\overline{" + (Name[A]) + (Name[g]) + "} \, = \, " + abstandAg
k_3 = Circle(S_2, abstandAg + 2.0)
D, S_3 = Intersect(k_3, k_1)
a = Line(A, S_3)